home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD004b.dsk / KAFM.KEY.PRT.bas < prev    next >
BASIC Source File  |  2003-06-12  |  729b  |  27 lines
  1. 10 D$ =  CHR$(4)
  2. 20 TH = 1000:W = 1:Z = 0
  3. 30  INPUT "ENTER FILE NAME ";NF$
  4. 40  PRINT D$"OPEN SCMA-"NF$",L60"
  5. 41  PRINT D$"READ SCMA-"NF$",R0"
  6. 42  INPUT FP: INPUT TY$: INPUT NF$: INPUT RL
  7. 43  PRINT D$"CLOSE SCMA-"NF$
  8. 50  PRINT D$"OPEN "NF$",L"RL
  9. 55  PRINT D$"READ "NF$",R0"
  10. 56  INPUT L1: INPUT L1:L1 = L1 -TH
  11. 57  PRINT D$
  12. 60  INPUT "TURN ON PRINTER AND HIT RETURN ";R$
  13. 70  PRINT D$"PR#1"
  14. 75  PRINT 
  15. 80  PRINT D$"PR#0"
  16. 90 I =  -1
  17. 100 I = I +W
  18. 105  IF I >L1 GOTO 900
  19. 110  PRINT D$"READ "NF$",R"I
  20. 120  INPUT B:B = B -TH: INPUT F:F = F -TH: INPUT A1$
  21. 130  PRINT D$
  22. 135  PRINT D$"PR#1"
  23. 140  PRINT B;: POKE 36,10: PRINT I;: POKE 36,20: PRINT F;: POKE 36,30: PRINT A1$
  24. 145  PRINT D$"PR#0"
  25. 150  GOTO 100
  26. 900  PRINT D$"CLOSE "NF$
  27. 999  END